answer "Sorry, can't use that name (check your list)." with "OK"
else
set the lockScreen to true
set the cursor to 4
put it into fileName
set the lockScreen to true
domenu "New Field"
get the number of card fields
set name of card field IT to filename
put bkgnd field "Text" into card field fileName
put number of lines in card field "List" into counter
add 1 to counter
put fileName into line counter of card field "List"
put ">>"&fileName&"<<" into bkgnd field "Title"
choose browse tool
hide card field fileName
end if
end mouseUp
-- part 58 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=59 top=19 right=37 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
Ask "Which file to be deleted?"
set the cursor to 4
set lockScreen to true
put it into delFile
if it is empty then exit mouseup
else set the lockScreen to true
choose field tool
get location of card field delFile
show card field delFile
click at it
domenu "Clear Field"
put number of lines in card field "List" into Count
repeat with L= 1 to Count
if line L of card field "List" = delFile
then delete line L of card field "List"
end repeat
choose browse tool
end mouseUp
-- part 76 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Now is the Time
-- part 78 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time
-- part 82 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Test
-- part 87 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=353 top=19 right=37 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
ask "Save text to what file name?"
if it is empty then exit mouseUp
put it into fileName
put number of lines in card field "List" into Count
repeat with L= 1 to Count
repeat while line L of card field "List" = fileName
answer "Replace document with same name?" with "OK" or "Cancel"
set the cursor to 4
set the lockScreen to true
put bkgnd field "Text" into card field fileName
put fileName into bkgnd field "Title"
exit mouseUp
end repeat
end repeat
set the cursor to 4
set the lockScreen to true
domenu "New Field"
get the number of card fields
set name of card field IT to filename
put bkgnd field "Text" into card field fileName
put number of lines in card field "List" into counter
add 1 to counter
put fileName into line counter of card field "List"
put ">>"&fileName&"<<" into bkgnd field "Title"
hide card field fileName
choose browse tool
end mouseUp
-- part 115 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=178 top=19 right=37 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transfer
----- HyperTalk script -----
on mouseUp
set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
domenu "Copy Text"
open Application
end mouseUp
-- part 116 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Intro
-- part 117 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=0 top=36 right=53 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MacWrite
----- HyperTalk script -----
on mouseUp
set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
domenu "Copy Text"
open "MacWrite"
end mouseUp
-- part 118 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=114 top=36 right=53 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MS Word
----- HyperTalk script -----
on mouseUp
set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
domenu "Copy Text"
open "Microsoft Word"
end mouseUp
-- part 119 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=243 top=36 right=53 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <<blank>>
----- HyperTalk script -----
on mouseUp
--set the lockScreen to true
--get location of bkgnd field "Title"
--click at it
--type tab
--domenu "Copy Text"
--open " "
end mouseUp
-- part 120 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=353 top=36 right=53 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <<blank>>
----- HyperTalk script -----
on mouseUp
--set the lockScreen to true
--get location of bkgnd field "Title"
--click at it
--type tab
--domenu "Copy Text"
--open " "
end mouseUp
-- part 121 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=435 top=36 right=53 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <<blank>>
----- HyperTalk script -----
on mouseUp
--set the lockScreen to true
--get location of bkgnd field "Title"
--click at it
--type tab
--domenu "Copy Text"
--open "MacWrite"
end mouseUp
-- part 122 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instructions
-- part contents for card part 12
----- text -----
-- part contents for background part 23
----- text -----
-- part contents for card part 27
----- text -----
ECRA
-- part contents for background part 24
----- text -----
You have already used that name (check your List)........
Please choose another name
or use button Save As..........
-- part contents for background part 26
----- text -----
good men
-- part contents for card part 31
----- text -----
is the time
-- part contents for card part 32
----- text -----
to the aid of their country!
-- part contents for card part 45
----- text -----
-- part contents for card part 51
----- text -----
Now is the time for all good men to come to the aid of their country.
-- part contents for card part 52
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 53
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 54
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 55
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 56
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 59
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 60
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 61
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 62
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 63
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 64
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 65
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 66
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 67
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 68
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 69
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 70
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 71
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 72
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 73
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 75
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 76
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for card part 77
----- text -----
Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.
-- part contents for background part 21
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 82
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for background part 32
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 86
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 103
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 106
----- text -----
Now is the time for all good men to come to the aid of their party.
Now is the time for all good men to come to the aid of their party.
to come to the aid of their party.
-- part contents for card part 108
----- text -----
Now is the time for all good men to come to the aid of their party.
Now is the time for all good men to come to the aid of their party.
to come to the aid of their party.
to come to the aid of their party.
to come to the aid of their party.
to come to the aid of their party.
-- part contents for card part 109
----- text -----
Now is the time for all good men to come to the aid of their party.
Now is the time for all good men to come to the aid of their party.
to come to the aid of their party.
to come to the aid of their party.
to come to the aid of their party.
to come to the aid of their party.
-- part contents for card part 110
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 111
----- text -----
Now is the time for all good men to come to the aid of their party.
-- part contents for card part 112
----- text -----
The quality of mercy is not strained...
it falleth like the gentle rain from heaven.
The quality of mercy is not strained...
it falleth like the gentle rain from heaven.
-- part contents for card part 113
----- text -----
The quality of mercy is not strained...
it falleth like the gentle rain from heaven.
Jack & Jill ran up the hill.
-- part contents for card part 114
----- text -----
The quality of mercy is not strained...
it falleth like the gentle rain from heaven.
Jack & Jill ran up the hill.
To fetch a pail of water
-- part contents for card part 78
----- text -----
-- part contents for card part 116
----- text -----
INTRODUCTION:
The purpose of creating this text writer stack was to create a writing environment that more closely resembled word processing and at the same time did not clutter up my desktop with text icons which other text editor
type of stacks, which I have tried, do.
What this stack does is to create hidden fields where your documents are stored after you use Save or Save As until you open them up again. Then when you are ready to print out your work, you can either use the standard Report printing as provided in HyperCard, or you can paste the contents of your work directly into any other application that you may like to use.
One nice feature of this stack is that there is List which you can call up at any time which lists all the documents you have created, and which by merely dragging across the name of the document and choosing Open, will open it up on the screen.
After you have finished reading this, delete this introduction by choosing the Delete button, then choose either "Open" or "List" and read the Instructions file.
I have not protected this stack and purposely left room for you to add additional buttons for your own experimentation.
Fred Di Marco
Compuserve 72667,2376
-- part contents for card part 22
----- text -----
Intro
Instructions
-- part contents for card part 122
----- text -----
"Open"
This button opens up the "List" field which lists all documents created.
If you don't want to open any one of them just click on "Hide List". To open a document listed just select it by dragging across its name and choose open again, and it will appear on the screen.
"Delete"
This button will not only delete the hidden field where the document is stored but also the name off the "List". It is not case sensitive.
"List"
Lists all documents created. Click on "Hide List" to make it go away.
"Transfer", "MacWrite", "MS Word"
These buttons create a copy of any open document and then either:
- Transfers you to an application or document of your choosing,
- Transfers you to MacWrite or
- Transfers you to MS Word
Then when the application opens merely choose Paste from the menu or Command-V and your document from HyperCard is pasted into the application for enhancements or whatever.
"Report"
Does the standard Report Printing as provided in HyperCard
"New"
Clears the Title and Text areas of the screen
"Save"
Saves document and checks the List to see if you have used the chosen name before. Here is where I encountered a bug which I have not been able to solve. If for example you saved a document as "Frederick" and attempted to save either the same one or a different one as "Fred", the various scripts I have tried cannot seem to differentiate between them when the search of the List names occur. If someone can come up with the right script, I'd like to know.
"Save As"
The usual Save As feature, but with the same bug as the Save feature when it comes to checking names.
"Home"
I don't think I'm in Kansas anymore!
"<<blank>>"
These have the same script as Transfer but disabled.
Of course I would appreciate any feedback or comments and hope I've contributed something (even if its just a little) to HyperCard creativity.
Fred Di Marco
Compuserve 72667,2376
-- part contents for background part 27
----- text -----
>>Intro<<
-- part contents for background part 33
----- text -----
INTRODUCTION:
The purpose of creating this text writer stack was to create a writing environment that more closely resembled word processing and at the same time did not clutter up my desktop with text icons which other text editor
type of stacks, which I have tried, do.
What this stack does is to create hidden fields where your documents are stored after you use Save or Save As until you open them up again. Then when you are ready to print out your work, you can either use the standard Report printing as provided in HyperCard, or you can paste the contents of your work directly into any other application that you may like to use.
One nice feature of this stack is that there is List which you can call up at any time which lists all the documents you have created, and which by merely dragging across the name of the document and choosing Open, will open it up on the screen.
After you have finished reading this, delete this introduction by choosing the Delete button, then choose either "Open" or "List" and read the Instructions file.
I have not protected this stack and purposely left room for you to add additional buttons for your own experimentation.
